home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / H399.ZIP / ODY200SH.LZH / CISV32.SCR < prev    next >
Text File  |  1991-06-23  |  1KB  |  49 lines
  1.  
  2. SCRIPT CISV32;
  3.  
  4. (*...............................................*)
  5.  
  6. FUNC Login():Flag;
  7.  
  8. VAR CISid,CISpass:String;
  9.  
  10. BEGIN
  11.      ClrScr();
  12.      Write('==============================================|');
  13.      Write('    Calling COMPUSERVE via direct V32 line    |');
  14.      Write('==============================================|');
  15.      IF FetchStr("CIS",CISid,CISpass) THEN
  16.          IF Dial('CISV32') THEN
  17.              IF NOT WaitFor("HOST NAME:  ",5) THEN
  18.                  Transmit("|");
  19.              END;
  20.              IF WaitFor("HOST NAME:  ",20) THEN
  21.                  Delay(1);
  22.                  Transmit('cis|');
  23.                  WaitFor('USER ID: ',60);
  24.                  Delay(1);
  25.                  Transmit(CISid);
  26.                  WaitFor('PASSWORD: ',60);
  27.                  Delay(1);
  28.                  Transmit(CISpass);
  29.                  RETURN TRUE;
  30.                ELSIF OnLine() THEN
  31.                  HangUp();
  32.              END;
  33.          END;
  34.        ELSE
  35.          Write("Password file does not contain 'CIS' line|");
  36.      END;
  37.      RETURN FALSE;
  38. END (*Login*);
  39.  
  40. (*...............................................*)
  41.  
  42. BEGIN
  43.      IF Login() THEN
  44.          SetCISB(TRUE,FALSE,TRUE,FALSE);
  45.          Sleep();
  46.          SetCISB(FALSE,FALSE,TRUE,FALSE);
  47.      END;
  48. END;
  49.